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@'  ) 
BEGIN REAL COMMON; 00100000 

e. CUMMENTS * TITLE? 85500/85700 MARK XV,1 SYSTEM HELEASE * 00140010 ® 
NS fuRen * FILE IDt SYMBOL/HELP TArE [O03 SyMSC .4e/FILECQOGO | a. OOOO LI Pie ERT I 
1 * THIS MATERIAL IS PROPRIETARY TO BURRUUGHS CORPORATION * 00100012 : 

r 2 * AND IS wCT TO BE REPRODUCEDs USED» CR OISCLOSED * 00100013 1@ 
crease et _ * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON Ow oododo14 dye Pica nc 28 thea oat oe aati at, ; 

4 * WRITTEN AUTHORIZATION UF THE PATENT OUIVISION GF * 00190015 : 
@: * BURROUGHS CURPURATION» vETROIT» MICHIGAN 48232 * 00100016 1@ 
y * COPYRIGHT (€C) 1973 BURRUUGHS CORPORATION «5 00100018 e 
ee: FILE TWX 1462910)3 00100100 1@ 
tees et es AVE ARRAY | Bip BOO SO Fp ce ice cept cat ated uae wiathariauns ele dala Seema ee SOO LO OS OO. ele an, o'er atone ay ? 

i BASECLO!16]» TL0:30];3 00100600 ba 
e: ARRAY PCOt25]3 XSTORE INPUT PARAMETERS 00100700 "@ 
oh, ARRAY WORDCO%1)5 SDATALO# 3035 00200800 12 
i SAVE ARRAY SORTA» MERGELOt512]3 00100900 1s 
ee: REAL ONAMEs SRCENAMEs VARNAMES BOOLEAN WRKFILES 0010100C . “@ 
as REAL Als A@s Ade Ble. Bee  B3e  b4e BS, EAURSs Pera eereemeene C1 0G We 01° eee ae 9 
18 EGFMARKs TeLINEo NL e Nes Cle O29 RECSZ»SEWP*USERS 00101206 1g 
e” BOULEAN SFLG3 00101300 "@ 
M8 ee ABEL QUTRSOUTRMOST? . Shee eit lel id el P al nO DO ON hid, ayn eS lara hoe OS ee beg 
s MONITOR FLAGS CHECK FOR FLAG BIT ENRURS- 00101500 ° 
e” INTEGER MAXCNTS COLes60C ah 
4 ere DEFINE LEFTARROW = ents 7 Dpisceistas OO1OLZ0G..... Sistah etl Sey - a 
ae CW e dN KARA Wa EN OE OEM A Os De eh AOE ad Oe dea eR 0011710 . 

r p38) PROCEDURE GETHEADERC ARE Ashe N2en3)s 00101720 23@ 
Pe eee ree ARR IR III I FOI III IOI II IOI OOO I IO IOI IO it tO ed kei toni oo 00101730. a Sl ed Ae dare et ee oh Rs S) Bl 
be VALUE Nile N2eN33 REAL Nie nee nds AKRAY AREAL #]3 COMMUNICATEC #2193 00101740 fs 

76 ee eee IT TO III IGG IOI IIR II Ot tri 00101800 |@ 
bp ——~Eusancvecssnsseduenscstestensseeeessave uateep Dict ihe Ph te fot SOO POLE OOo see an aco 2 
8 Be ie te i am ta kk RO a kk IK eR RE oolv2ono 28 

@ VALUE TYPES 00102100 21@ 
ig See Dm SOREN | 3 cl 1 RAE eR bate eae Bh tel ctl Ret Nt at teed oo Oe te Tee OO LO OO Or ees ast ia 
Py SIt=sFLIL$ SIt#®S1™243 D]i=LOC FIILS OSt=enyS3 00102300 a 

@ . STIsFIILS 2CSIteS1+56)3 DLs s=rdc FIILs DSi swOss 0010240C s\@ 
Pl eta DISsFIIL3 OLtsD1+3K83.. seo adi chrinck Nahe ir ty cea oats ater fists Beasts Mop kcke ie ao OL ORSON. a ee ae ee 39 
ial SIt=LOC TYPE; SItsSI+7; DSt=CHRs- 00102600 if 

@« END3 00102700 hg 
FO ec ne UII IOI IOI OIC IOI IOI IOI IC IORI SOI TIO IT Te te te kee eke we ewe HOOT C2 BOO i 
i STREAM PROCEDURE MOVE(NsAst)s VALUE N35 00102900 ie 

@» So We ROI ROI UO TOO tok Rik ik ik tk 001039000 a] 
r ac ats ae IS NS) CBN Bc rs or 8g a a ae as eo a DY pA e oea fy asaneeet eG het. : 

Srt*=lLOc Ns DOLislLO@c M3 OLt=D1+13 uUSt=7 CHR 3 00103200 2 
@: Sl:sAs O183B83 DSt=nN wWOSs MOU St=3¢ WOSs DSt=3e wOS)3 00103300 @ 
Hee A dane tee edt ce Ap ete de Bose 00103400 - 2 Peceeremee 
a Ree b edt a UUKMREAERAEE EEE HSOAE EA DG EEAD TEEN EEDEROEE NEED ORR E RTA OEREEA 00103506 be 
@ STREAM PROCEDURE RESETSIZECOSK*RSIZE*BSIZE»MAXRUWS*ROWSIZED3 00103600 4@ 
De CLAL EELS SCLL CALERA LALA RAT LA EAE AAALAC RTARTA TERETE AE LL Lh tT ee 00103700 . AES ME SR rane rnin 45 
hs VALUE RSIZE»BSIZE» MAXROWS, ROWSI ZED 00103800 , 
er BEGIN 00103900 «|@ 
__... SI®sD$ks 3°CSTtmSleads OLiS_r0c DSKs OSt=wiss a ap ae) na OERE EOE ® 5 O17 1°. 1 89 1 0 See eee ee Oe a ce has 
DIt=OSKS BCOI&sOl+Ads OLteOl+3s SKIP 2DB; 00104100 a2 

6 STtaLOC MAXROWSS SIaSI+73 SKIP 9B; 00104200 1@ 
__ SCIF SB THEN OSt3S6T FLSE NSt=RESETS SKIP SB)s 7 OC R04R00 ey 
5 SI:sLOC ROWSIZEsS STteSIT+43 SKIP ob3 00104400 Ba 

© 23CIF SB THEN DSS8sSET ELSE UStSRESET) SKIF Sua3 00104500 51 
— OLtsOSks LACOLLSD1+8)3 SKIP 3D0BF eeatatcn 00104600 bates Yast eee le oe 
SrseLOC BSi1Ze3 STieSle+5s SKIP 3565 © 00104700 ba 

Yd] ISCIF SB THEN OStsSET ELSE OStehESETS SKIP SB)3 00104800 5 @ 
g Sr2sLQC BSIZEs SltzS1+53 SKIP 3SHs fi : 00104900 fee ae Sy 

@ 


Data Documents/inc. 


“i AISCIF SB THEN OSSsSET ELSE DSS=RESET> SKIP 5b); 00105000 
S1*s_LOC RSIZEs Slt=S$i4+55 SKIF 355 00105 40C e 
leo LPB. TRENDS SSeT PSE DS tert OE TS. SKIP Si) oOo ee OO PUS DOD! oo ee einen eet ee 
e |: END RESETSIZEs 00105300 le 
BUSA ITI ISIOI IIIS SSIS IOIIIIOIOU ICG I Rr nia e ii iiaeieeae00105400 a We 
_——— REAL STREAM PROCEDURE SIZEOFINPUTCAZ)3 VALUE AZs soo. oes 7 
‘| } FO USS SUIS I IOI IOUS IOUS IG OUD SO i iii i iibien ###00105600 le 
@: BEGIN 00105700 : 
Me ee ROUTINE OBTAINS NUMBER OF CHARACTERS J USERS INPUT RECORD 00105800, ee es 6 
i % FROM THE WORD WhICh PRECEEOS ThE ACTUAL USEKS INPUTes 00105900 ; 
@ a % THE ACTUAL USERS INPUT BEGINS AT ADDRESS "ae" 00106000 |@ 
 eoeeoeeeererees vow SLEAZE STLSS19393 Nl isi Ge SIZEOF INPUTS DIseflivSs DSts3CHRs  .. nolosino.. »_syj. ee tes te on Se : 
‘0 =pI-3; 0S!=3RESET} 00106206 
@): END STREAM PROCEOURE SJZEUFIAPUT> 00106300 
2 eR IIT I ORI IOI I IOI TOIT TOSI I III II RI RIT IO tk eeeeeOO1L06400  _ 
i PROCEQOURE SORTCL*U)3 & RECURSIVE SORT ROUTINE 00106500 
e - Fa II IIIS TOIT IIIS ITO IO III III OIGIIIOIGIS I IOI III Ginter ##00106600 
pe REAL Les Oo1U6B0U 
ey BEGIN REAL IsdeKem3 00106900 
ji cance cow obABEL AGAIN® TOP sBCTTOMsE XD TA cece eee coe cena ee eee AO 107.0.0.0. 
C IF L NEQ U THEN 00107100 
@: IF L+12U THEN 00107200 
Pe BEGIN. IF SORTALL 1.021527) GIR SORTALUI,[C2122/) THEN. 0107300... 
- DOUBLECSORTALLIsSORTACUJ]>*¢»SORTACUIsSURTALLI D3 oolu74ocg 
@» END 00107500 
a BEGIN Mt=(U+L) DIV 23 00107700 
e a SORTCL*®M)3 SORTCM+12U)3 00107800 
Pe Oe, SEEMED el esis a ay eee eee BECO os WO Ate 5 ols DAR GOe eee oe 
FOR Leet STEP. L WHILE. “SOKTMELLJ+L2it27), “LSS. “SURTAL UJ C21%27] Dus” 00108000 
e IF L LEQ M THEN 00108100 
aa aa Bi aunt ce Ee aN ORIN ae Dh aaa cet et a ag ala a ek io ee ur ee os co OL OO) ea bs ete 
P" AGAINt IF I GTR M THEN gO TO TOPS 00108300 
@» IF J GTR U THEN GO TO BOTTOMS 00108400 
_—— vee een eens ow UF SORTALT )¢ (21527) LEG SORTACJI021227) THEN GU TQ BOTTOMS 00108500. 
x TOR? MERGECKI]&®=SCRTALQ)3 00108600 
@* Jt2U413 00108700 
Me te set PERE LEG U TREN GO 30 AGAIN USE: GUsExIT So  OOL0BROO SiN, wale , nate ing teg eaales le eat nsec el Nah ta dace eee he 
i BOTTOM: MERGECKI]=©SORTALITI3 00108900 a 
er 1ie1413 00109000 fw @ 
pet iat ee da ek OOO RG UT ENS GO: TO GAG ADIN Go ate tan tel et el ete OO TOO EO 5 oa Sail ee 3 
i EXIT: MOVECUML+leMERGELLIJ*SORTALLI); 00109200 
@: END 00109300 +|@ 
; Say ieee ta Rit fa MIN) enter he ile ke pence Es on ose hea ht carat ee ot me aeons erwonemneen 1°87 0°, Fol © eee re 7 fat ice athe Re 
“END SORT; 00109500 ¢ 
@ FOI III III III III III IOIGOISIIO IIS IG IDOE IOI nee ie 00109600 ; e 
PROCEDURE DISKWAITCIsAeSep)s on space aed a ioe ns ats xe Mi xs ae Oe OT OO occa tc oe ba 
VALUE IsSeD3 REAL IsSsDi ARRAY ACal; COMMUNICATE (*8)3 00109800 46 
eo ee III III OI TOI IIIT GIGI III III ite 00109900 |W 
REAL STREAM PROCEDURE DECONV(X)$ VALUE xs 0000 tO a" 
BEGIN SItz_Oc Xs OLtsLoc DECONVs OS:= 8 DECs. ENDS 00110100 ag 
@ ROO R aE A TERETE NEE ek ea Ok th hee ee ete 00110200 sf @ 
III IIUIIICIIICIUIG IO CINE tok tik ition tot ee eQQ04103900 care 51 
PROCEDURE SETUSER(CODE)3 VALUE CODEs REAL CODES COMMUNICATE(®@ 10)3 00110400 5 
@ REAL STREAM PROCEDURE WHEREIS(X)3 %& GET ADDRESS GF "x" 00110500 1@ 
feteeen. =, BEGIN SLt=x3 WHERETS%=SJ5 ENDS ae tee 00110600_ See ee ee Te ee 54 
m GUIS OUISISIGI SISTED OIEIIOIISIOOUIDIUIOOIIORIIOINN INS oii ninoiniininecst1#00110700 55 
] : Asya PROCEDURE SIZCA1»A2Z)3 VALVE AlsA23 REAL AlsA2S & GET SIZE FROM ADRS00110800 |@ 
S122 (A26633815)7A1 33215) )x84a2.C9Ut3I" "AL, £C3C%313 : 00130900 5 
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r ee a 
FU IIOIIIUIUISISIISIIISIOIIOIGIGIO ICICI OSI IIIS II IIIIO OIG oiiciniiee6 00111000 
& STREAM PROCEDURE REFCRMAT(AZ9B15B4s5EQ>1F LG sSFLG*EADRS)3 001111400 & 
Ne III ICUUIGOUUIUUIUUIDIUI UOC ai ininiginiciicicint i 00111200. 4a Pe Alaa SAD Late 
(\ VALUE A2sBleBasSEQeIFLGsSFLGsEADRS3 00111300 
@” COMMENT A2 IS STARTING ANDRESS OF STRING IN ARRAY "Atty 00111400 1@ 
A ae eee Bi 18 ADDRESS OF BfO),. see Seat eaeeety Eonar ee ee Se et OT SOO. oe ee ee oa ete et te 7 
4 B4 IS ADDRESS UF BL9) IF NU] TYPE Lata» OF BL10) IF TYPE DATA 00111600 : 
@ | SE® IS OCTAL VALUE OF SEQUENCE NUMBER IF NOT TYPE DATAS 00111700 10 
5 ees ou -LELG US..TRUE LF SEQUPACE NUMBER APPrARS IN INPUT RECORD, 0 potlagoe | 6 
al SFLG@ IS TRUE IF NOT TYPE DATA FILEs 00111906 d 
@: EADRS IS ADDRESS OF LAST LEFT ARROW IN USERS INFUT RECORD 00112000 1@ 
| ROUTINE IS USED TO CONVERT INPUT FRCM TANK TO. STANDARD (80 CHR) FORMS 00112400... Se Or ere reat 3 
a BEGIN LABEL Ls LUCAL SV,DVs DISSEADRSs UStsLiT LEFTARROWS 00112200 bal 
e: DIt=B13 DSssQlIT” "$ Sy3=B1s OStS9WOS3 Slisags 00112300 1@ 
[Ocoee ee AE LGO.S SEQUENCE NUMBER IN RECORD OO OOM AN2 BOO. on 5 sok aol a tall odie ee Pa an ee De 12 
63CIF SC=" “ THEN SI8%ssl+1 ELSE sUMP OUT)3 00112500 
OsCIF SC LSS "0" THEN auuP QUTSIF SC GTR "9" TENS JUMP ik Snide 00112600 
oh. x eae oe ; Chine: Hatt ted Sete a ecu OI POO. 
DI:=BL3 00112800 
2¢40¢ 00112900 
IF SCSLEFTARROW. TREN. & CHECK PTE IDR A EC ot ooo, de Se gta eee iat SONG AP SI oe ora aos ees antacids 
BEGIN 00113100 
SVt2SI3 SrseLoc SV3 SytsSp+53 00113200 
the teas eae Sa DV82DI3 DIs%elLOC EADRS: DLlseD1+53 9... CdinieeGeeui. Bohn, sitnieei OOLL A SOD. 2 
33 IF 3S8SC=DC THEN JUMP UUT 2 TO LS 00113400 
SIt=SV3 DIt=Dv3 001135900 
-ENDs. Sa debts HAE oArse Somes beaten MeButines She oe Mee ienten een aceon QOL FAOO 
DS!t=CHR))3 00113700 
Li? SFLGCSI%3LOC SEQs DNIt2B43 DSssBDEC); 00113800 
enon etotes -END. STREAM PROCFOURE REFORMATA OOOO 
SAREE RRR EE NRHA EARTH ETRE HAHA Ra He dae A AR AAE EER EEEROOLIAOOO 
BOOLEAN STREAM PROCEOURE FIXCHK(A2sU1+02eN1sNeecADRS)3 VALUE A2eEADRS3 00114100 
a IOI IO IOI FOO III OIG SOR IOI IO OI OIC to ioe O01 4200 IR are 
COMMENT A2 IS STARTING ADDRESS OF STRING IN ARRAY "At, 00114300 
0102 ARE START/FINISH ADNRESS OF "OLD STRING» 00114400 
pon NDAN2 ARE START/FINISH ADDRESS OF "NEW STRING. gk ago ee 
EADRS IS ADDRESS OF LAST LEFT ARROW IN USERS [FUT RECORD 00114600 
| ROUTINE EXAMINES "FIX" SYwWITAX AND ESTABLISHES VALUES FOR 00114700 
poo OP OP eNL AND N23 See Mats te A Ba sr te tS tor OOTP BO Ore mt 8 er i te fa 
ie BEGIN LOCAL SVsD3} LABEL EXIT; 00114900 a 
@= DItSEADRSs NS$=LIT LEFTARROWS SIt®A2s DIssLOc D3 00115000 341@ 
OCT SC LSS "O" THEN SItsSi+f ELSE JUMP OUT)2$ % SCAN TO DIGIT  —_—-00135300 Fitna oT aa ee el a . 
i IF TOGGLE THEN GO TO ExIT$ & NO UIGITS 00115200 4 
41 OBCIF SC LSS "0" TREN JUMP GUTSIF SC GTR "9" THEN QUMP OUTSSI%sS1+41)500115300 «|@ 
fy OCT ESC EQL " " TREN SlisSl¢} ELSE UMP OUT) % SCAN TO CHAR,  _00115400——“‘<‘C;té~*~*~S Be pede Shae waa, orl ah a el i eee ; 
4 IF TOGGLE THEN GO TO EXIT3 * EMPTY FIELD 00115500 4 
@ - OlisLOC DS DIteO1475 DSt=CHRs % SAVE DELIMITER 00115600. 4@ 
5 TF. SC80 THEN GO TO EXITS % NO STRING Ot 700- 45 
A IF SC = LEFTARROW THEN 00115800 "| 
@ BEGIN 00115900 +7@ 
Oe gee a a ta es OO LOO a 88S oa ng ee coe had eee : 
DISsLOC EADRS? OLt=01+53 00116100 9 
e IF 38Ce0C THEN & LEFT ARROW REPLACEMENT . 00116200 sf @ 
pee oe BEGIN... He stebe nek Pn CE Saat a We ___..004136300 ee ae i NE reat ee tet eee me a 
5 “SItsSV3 SltsSl™13. “SV =5T3 SIts_LOC SV$ Dlisdis OSt=wOSs SftzSVs 00116400 5 
r SItsSl+13 SVssSIl3 Slse.uc SVs Olsa023 USt=ewOSs 00116500 1@ 
-SLISLOc SVs OL%SnN14 OStewOSs ST32Svz BOO 8 
SlseSle1s SveaST3 SItsLOC SVS DI sen2s CSi=W0S; 00116700 | Ps 
@ TALLY&31) FIXCHKI*TALLYS GU TO EXIT3 00116800 {@ 
@ 
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foe es 7 “oa - pe 7 © @ 
SIt=SV3 00117000 
ENDS % IF LEFTARRUW 00117100 
ann a VAST SDE EL OC SVG UIE SOLS DSI SNUSS Sltsove# START. OF ULO STRING . OOlL?200 
' 63¢ 00117300 : 
2 IF SC®LEFTARROW THEN % CHECK FOR END OF RECORD 00117400 1@ 
Oooo ag te hae ote tT Niccacn ancient nines Dat ey hr cease ret aaa har hal Se, te a dte al palette Alans, qutiles uf 2g OOP Oe St 2 00, oats at eats 3 
- SVteST% SItslLOc Svs SptsSl+53 00117600 ‘le 
* DIt=LOC EADRSs Cls=N1+5;3 00117700 i 
‘ore AB ASCEDC.THEN. JUMP OUT TO €XIT ELSE STSESVa ee OOLL7B00. oo 6 
Es ENDS 00117900 le 
is IF SC NEQ@ D THEN SItsSI+1 ELSE JUMP OUT); 00118000 , 
Pe ee DLR TOGGLE. THEN GOTO EyITs & MISSING 2nD DELIMITER... .. OOLIBLOO 2. 2 
ie Svs=SIs STssLOc Svs ODI:s02s USt=WOSs SItsSvs 4END OLD STRING 00118200 @ 
ty SItsSI+1s SVisS13 SItsLUC SVs DItSN1$ DStawuSs STisSV3 % NEW STRING 00118300 u 
he renee eieet el FeO CRE TARR DW MEN cits solani ure h te Yae geiwip at eee etd cate OTB MUO, as te Diiun beets oh Nees Ot ee 
re BEGIN 00118500 Je 
7 SVtsSI3 STtalLOC SV3 SlteSI+5s OLsslLOc EADASS DL tsD1+53 00118600 bi 
lee = sake 1A IF.3SCSOC.. THEN. JUMP. OUT ELSE STisSV gen ee eee oe 0148700 pg fic A OE Alera ROA Ee us eae | 
ba END3 00118800 a) 
Ky SyszSl41)3 : 00116900 i 
Me SEE SLOC SVE DE tEn2: DStswbSe % EWC NEW STRING 90119000. EN Ih ht Fi tae Be eet 
a TALLY#S14 FIXCHKISTALLYS 001191400 1@ 
. EXiTs 00119200 ce 
MN eee wees ANID... STREAM. PROCEDURE FUXCHKE ee cee vent 00119300... = Lene eee eee See eee ay art 
ee FT te III OI IO II IOI III II IO IOI Oia toiidice 00119400 24 
23 BOULEAN STREAM PROCEOURE LOCATE(B1s825B3584eLeC12S20)3 00119500 23 @ 
(On Cc tT eC Le Le Lecce CeCe eC ee CALA SREP A SST T SLCC SE SOSA TE CCT CLT E COLT TL TTT TT 4001196006. Re een eee oe ea 
a COMMENT B1 IS ADORESS OF BLO]>, 00119700 ;: 
26 B2 IS ADDRESS OF START OF “EXISTING” STRING» 00119600 2 @ 
— _...83_18 ADDRESS OF CHARACTER FOLLOWING LAST NON@BLANK GHRe IN RECORD 00119900 = s—s™ so ee. 2 
B4 IF ADDRESS OF BL9}) IF NOT TYPE DATA» OF wlio) IF TYPE DATA ool2oado fs 
L IS RECORD S1ZE*(2x)36 CHRe IF NOT TYPE DaTas (2x40 CHRe IF TYPE DATA.00120400 21 @ 
ROUTINE MATCHES "OLD STRING" AT ADORESS OlstEnGTh $40 WITH  =—ss—s godeg2o0. a 
CONTENTS OF RECORD FOR "FIX" STATEMENT» AND SETS B2 AND 83 IF MATCHED 00120300 a 
22 VALUE 81°84.L5012S203 00120400 | @ 
jig ee ow BEGIN LOCAL SVsDs LABEL LtoLavEXITs 0220500 © Sie ea ss 
SltsO13 DIssLOc OF Dlscb1+73 OSt=CHRs % SAVE FIRST CHARACTER 00120600 34 
STtsBl3 00120700 @ 
Deere se ETI Go TINS 2 hatte ae Ba as data as cpcts cet ncibaih de eSieel Gate ta as ata tpsle ates a WOO POOR UO he Aue, i Pontos a Bored hn aeeatten 2 tae eh. as a i 
BEGIN 00120900 nT 
: SVS2SI$ D18=013 IF SZO SC = DC THEN 00121000 4@ 
atcha ag EAL. inc tal BAR RMA Sete > po dN i ah oh Med oscar asics ea laa A ete ig teh geese Mates ma ail age te oat NG A OO bie ac See an ee tee a Be i 
STt=LOc SV5 DOltsn23 OS8=WOSFs JUMP QUT 2 TO LY 00121200 40 
ENDS 00121300 «|@ 
Nest lath aE tee OUR Bee eens : eee eae -_ a ex, Laan ee 00121400 esse red ante tater Oat eo, ie 
END3 00121500 4 
St1sSI41))3 00121600 «@ 
esac emcee Peremremer?° |9 0 FR|2E (2 (GSI ee OS ean ere a ee ee ee a ee Ae eee Na ett oO OE TOO) iN ak ba 
Lit SytsB4a; Syr=Sy=q4;3 00121800 4g 
2¢LCIF SCa" " THEN SIteSie1 ELSE JUMP GUT 2 TU L2))3 00121900 1 
-h2% SI8=Si+ 1s SvseS]s Slsetcuc Svs Uli=sbas DStaWbss | ee MOP2 2000 oe _ 
TALLY#?®13 LOCATESsTALLY3 00122100 49 
EXIT! 00122200 od @ 
_____END STREAM PROCEDURE LOCATEs O0122300 = 
Fa ei III III III IO III IOI IOI OI ID Orie iainioigineicie 00122400 5 
STREAM PROCEDURE EDIT¢CB22842B59SZLZ09Ni ep SZNOSELG)S 00122500 «1 @ 
Fee FSC UIIIOIUISIIIIIUIUIIUIOISIIOIIIIIIUINIUIIIIOIIIIGIOIUIIUIIDO IDI OI iiiidiiioienicoenened0l22600 5 
COMMENT B2 IS STARTING ADDRES OF “EXISTING” STRING» 00322700 55 
B4 IS ADDRESS OF BL9) IF NOT TYPE DATAs OF BC10] IF TYPE DATA» 00122800 6 @ 
| 00122900 
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eo. @ \® 
$Z0 1S LENGTH OF "EXISTING" STRING» 00123000 “ 
@ Ni IS STARTING ADDRESS UF REPLACEMENT STRING? 0C123100 e 
Rn atctacrats SZN. YS LENGTH OF. REPLACEMENT SIRINGs 0... i ple tive i Mem uitteteole ee MOOLZ S200» cs. is i a Se Pee eR act 
[' SFLG IS TRUE YF NOT TYPE DATA FILE. 06123300 
e 7 ROUTINE REPLACES "ALO" STRING WITH "WEW" STRING FOR "FIXx™3 00123400 
Spo NM AGUE B22 Bae BS e2SZO oN Pe SZNe SEL GE cee eee ocean nuttin te JOL2 3500 
. BEGIN LOCAL SEQ; 00123600 
@ ‘: SFLGCS1:2:2B42 DIt=Ldc SEQs NStFWISIF & SAvE SEQUENCE WO. 00123700 
Oe ee DEE RB4SR. 2008S SAOL ITT Ma. Poe eee OY 0 WK W- 2070) fs 
i? SytsB2s Sl:s2S1+8203 OLssa53. “2CDSt340CHR) 3 00123900 
@ | STtenis OL8eR23 DSt=SZ2N CHR 00124000 
Wheres ithuce yore RB OPS OCD Sem ABC NT Fs pn eyes Bree oh iagn Gee ndceatasiaie cutie a tt wk oes ta SOO ROWS OO anode .. 
fh SFLGCSI2=LOC SEQs OLSB43 DStsnb5)5 00124200 
eo END STREAM PROCEDURE EDITS 06124300 
Or nn III III III OIIGIOIOI IC IOIUIGIGICIIDUIOIIGIO OIG iciiinkisice 00024400 eee Ree es 2 oe a ee 
WS x STREAM PROCEDURE WHICH CONVERTS OCTAL TO BCD 00124500 
r ] “4 REE TTECITLE ETCETERA TLE LLELITLT LILO LITLE TLIC Tes 00124600 
Mae =o. STREAM PROCEDURE CONCONV(B?C)3. VALUE. Ba ee ON EGTOO ee 
a BEGIN C0124800 
. DIs=C3 00124900 
Pa thes he sauce Bice OE WR ede ads wi Ser G Sin Zwei nel. Mestudigne: adeesekeOodnttes. ky aeteisASedana Tin desa ls its 2 areca SAS 2% 1 ctr ne ot ALO OO eens ge, cy. a 
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IF SDATACO) LEQ 0 THEN BEGIN 4NONWEXISTENT OR PROTECTED FILE 

; oh wwe SACERRMES APCD £2 
WRITE CTWX* Gs ERRMES[L#)) 3 
GA OUTR? 
ENOG.. ... 


IF SDATACO],(42%6]50 THEN GU OUTKMOSTS. 


IF SOATACO},(15%15 480 THEN SDATALY},£15315)% sSpaTAlO }.(4286)x303 


TF SDATALO].(13O0£12150 THEN SDATAIG) p30ti2)ieis 


28 
ee baits Seda 
32 
43 
1a 


IF SDATACO},C1814}=0 THEW SUATALOJ.01!14)% =SCATALO]eL15?15) LIV. 
SCATALO].(£ 3081233 


IF NOT WRKFILE THEN BEGIN 
RESETSIZECUSERSOsSpaTarol citi» SpaTAcod .£15%15)%20%600)}3 
IF CSOATALOJs£15515). MOO. 30)50 TREN SDATALQ]sC1ISti5)es308 | 


| RESETSIZE(SOUR2»SpaTALOI. £1214) 250AT ALO],L154151+090); 


RECS#sSDATALOJ.£4214)3 


% IF TYPE IS NOT DATA AND RECORD SIZE IS 10 THEN SEQUENTIAL 


--FILL USERSO.WITH ONAMESPLO]s. ._... ratte teiecatannd yp ceubareelt ard tats xa 8 


SFLGISSDATAL4],£36:6] NEW 8B AND (SUATALUI,(1314]810 OR SDATAL7J==4 


seas aeeeede INTL Sy cd oe tncieatetie ae Ree Sane ie! Oa ent, ee nian di 
ELSE 
BEGIN 


RESETSIZEC(SOUR2+10,300000)3 
RECS?=103 


00153400 
00133500 


oie MOLDI600 ooo oo eect 


001353700 
00153800 


- 00153900 


00154000 
00134100 


OOS GOO gate iets eke fu 


00154300 
00154400 


. 20454500... 


06154600 
00154700 


. 00154800 


00154900 
00155000 


so ee 00155100 


00155200 
00155300 


- 90155400. 


00155500 
00155600 


ert tenenet x OOLSSR TOO: 


00155800 
00155900 


- 00156000. 


00156010 
00150020 


ceereereare © 150) oY »10 1 [2 eae eee cet Ra ele 


00156040 
00136050 


NORTSSDATAL7I]#13 NUMBER OF RECOKOS IN SOURCE 56100: Nie apes 


00156200 
00156250 


.0.0196300. 


0015635¢ 
001356400 


00156600 


2$ 00156700 
Biles oP OR SO BOO. 2 ios 


00156900 
00157000 
90137100 


00157150 


00157200 
00137300 


BHBS=TRUE; 


9 BlOj:203 *&ZERO FIRST WORD OF "1T" FILE 

50 PREVSNSse13 

py RT NO RECOROS IN SOURCE CREATE mite AND EXIT 
pa IFCWRKFILE AND SFLG AND NOR=O) ThEN GU La3 

53 Lit IF CWRKFILE AND SFLG) THEN Ti=T+l3 

a 2S READ CSOUR2sRECS»AC HI) SSP1]45 “ZbASIC READ SOURCE, WRITE 

*6 PP2=INPCONVCAL9I)3 ' &NEW SOURCE LOOP 


HF _PP LEQ PREVSN THEN BEGIN $15 SEQ» NCo GUT OF ORDER 


IF CWRKFILE AND SFLG) THEN BEGIN 


00157500 
00157600 


Ocib7e00,0 }=—— 


00157900 
00158000 


00156100 
00156200 


001386300 2 


00158400 
00158500 


90158600 


“00157400 


re | 


Data Documenis/ine. 


e en ee 
! PPLsPREVSN+1$3 %SET 11 TO PREVIUUS SEQs NOs + 1 00156760 
@: SEQNOt=SEQNO+23 | 00158800 
See SEQMESCERRMESsPPsPREVSNeSEGNO)S S2NCTIFY USER OF CHANGE. QO1SH900. .... 
WRITE CUSERER*RECS*ERRMES(*) 23 00159000 
@: ERRTOGI= TRUE} 00159100 
: CONCONV(PR2eAC9J)3 ZPUT NEW SEQ. NO, IN SEQ, FIELD. |... . 0159200 ee pe he a en eee 
ogc ENDS 00159300 
@: BLT]:=PP3 00159400 
let tia he | ENDS. 7 5 . . 00159500 Si I State aerate 
u PREVSNS=PP3 00159600 
e: WRITE CUSERSOsRECSpAL*))5 00159700 
i eee eee USERSOTOG2#IRUES. sate e deep ste EB ay hele wipe ee OO LS OBO 0. -..92. co See te ee eed 
Ms Nt=Ne¢13 00159900 
eo: IF N GTR NOR THEN GO Las 00160000 
“ie Piece eee LE ONO CWA RE LCE ANOS SEG Nyro Ae Glas leo QO1AOt 002i Se a 
ha TreT+13 00160200 
@': IF T LEQ 29 THEN GC L23 00160300 
a LS! IF. CWRKFILE AND SFLG) THEN. WRITECTFILE2,30,B8f*])3. = OOO 
‘i LSPC1s: IF NORS THEN GC UUTS ELSE BEGIN Tis=13 GO LAS END; 00160500 
@” La? NORS$=TRUES 00160600 
te oe Oo OCWRKFILE AND SFLG) THEN. &STORE EOF MARKER. e _0oleo7o0.... See Teo 
a IF T LSS 29 THEN BfT41]?=10000000U 00160800 
D ELSE BEGIN 00160900 
eee WRITECTFILEs 3028(*))3. i“ . 00161000 . ROP erate corer Mr ee nee cree ee 
ea BC0]22100000000; 00161100 
@ » END3 00161200 
| GO LS: es ee ee nee eee eee ee 00161300. as 
ae SP1$ READCSOUR2»RECSsAC*1)3 ¥SUURCE PARITY HAS OCCURRED 00161400 
@ * PPr=PP4l13 00162200 
i _PREVSNESPP3 | hi te Bes Spat ot naiclenaa Rees Sat Been treet Op eG GDS ted esse ele odes Sete at 
e IF CWRKFILE AND SFLG) THEN S{LTJ2=FP3 00162400 
a CONCGNV(PP,A(9})3 Z2CONVERT ICTAL SEG NO 10 BCU 00162500 
Police Seta S fone Le _MOVECLOZALOIZERRMES(COI)s ZCURRKECTED SEG NO Sinise ce ODOR BOO. cote ae SoS 
i WRITECUSERSOsRECSsERRMES(*J])3 XWRITE POSSIBLY BAD RECORD 00162700 
@ ” USERSOTOG#=TRUES *TO NEW SOURCE FILE 00162800 
a. SEQNOFBSEQNOF23 nent peel el Soe ditt Sug tea Soh 00162900, 
be ERRORMESCERRMES*A[S ]*SEQNO))~ 00163000 
Ee WRITECUSERERSRECS»sERRMESL*))3 &WRITE CORRESPONDING ERROR NOTE 00163100 
is acer alee ERRTOGS=TRUES sett iN oxo eo oy cs tae Bol OOS pe OS te tence shee ot Rl saad hana ee, 
pr IF CNOT CWRKFILE AND SFLG)) THEN GO LSPC23 _ 00163400 
@« TraTei3 00163500 
i - RT GTR 29 THEN BEGIN WRITECTFILE*300BE4J)s T8203 ENDS 0063600. 
d “LSPC2: NtENe13 00163700 
@« IF N GTR NOR THEN GO L4 ELSE GO L23 00163800 
wy ABORT! HANDISS=TRUES ZROUTINE HAS BEEN ENTERED BEFQRE |. _. 00164400 
Ky GO END1S3 00164600 
@ OUTS! IF (NOT ERRTOG) THEN BEGIN SL2CERRMES)s ZNO ERRORS TO REPORT 00164700 
eee WRITECUSERER*RECS*ERRMESE*#I)3 OO 
ERRTOGS=TRUES 00164900 
er END3 00165000 
_.  CLOSEQCSOURA)S 2 hee eae ee _ esd 00165500 ae ee ates I ee er 
f IF (WRKFILE AND SFLG) THEN BEGIN | 00165600 
@ SRCENAMESS” "QreS" cos 36sto] aL INEC18% 3031815 00145700 
shee a8 oe es Tienes wsahoce tate COMMONS CZSL S513 AZWURKFILE NAME CHANGED 00165800 Boe 
ENDS 00165900 
@ IF USERSOTOG THEN MOVETYPECSDATAL4],.036:6]»USERSO)3 00166000 
___ LOCK CUSERSOA*)3 | _ ; Sac! 00166100 
IF ERRTOG THEN MOVETYPECLOs USEREW)) 00166200 
e LOCK(CUSERERs«)3 00166300 


OOLO6GOO 


CO | 
: END1St 00166600 
eo ENDS % "1S" AND SCURCE PARITY HANULEK 00166700 8 
Mae eae  S ae Bee a emia Orc anacss nie Nae tie, See eM OP EGA OOS Scorers ope cn cis: 
fj Pr ere ret narra nent e bie Fare ane eer ment rr na ean penne 00166900 : 
@ a PPT ECC PSCC SSCS CC CSCS TCC ECCT TALL LE TCLCCCCCTL ICT TTT 00167000 1@ 
3) cee Re ee te ie ie ie de etd ik iii i tea Ai ides ide dete te tte det OO VORLOO 3 
y @ ROUTINE TO HANDLE "1P" PARITY ERRURS 00167200 ‘ 
@': PS SPCC PPS PLCC CSC LST SS CLS SCS CCC CET SLCC TTC CELLET LCL TT Tr 00167300 |@ 
La III III IOUS UIUUUICOU EUG UO OI IU IUD I he SOU OT B00 ora ceed thsi is St ge = 7 
- % 00167500 ’ e 
i ZINPUT?: “1P" FILE 00167600 : 
oral a aarti ata hal Sta OP DE aa er Ronee, nO mae ok Fea'dagtiin weer ed Soames DOLE POO: BiiGaceebeteetea eho sete a eaite an 0 ety ? 
yi + 4 wis FILE 00167800 @ 
@' ROUTPUT? CHANGE AND/OR ADDITIONS FILE 00167900 a 
[Bp ann nh ENTERED IE ERROR NGTEU IN MPM FTE erwialcnatied autteee tect OOLABOOD,.ic Bae ita eee eek a Pe ee i 
"3, Z ACTION TAKENs 00168100 i 
@ « % CHANGES SORTED FOR MERGE WITH "11" FILE... | 00168200 4 @ 
Lo BOR ERROR. NOTED IN. M1T% "10" HANULER CALLED 2 0n68300.. 15 
rs % IF ERROR NOTED IN 15%» "45" HANULER CALLED 00168400 Me 
Ly % eeeTHEN "1P" HANDLER REINITIALIZED WITH APPROPHIATE 00168500 hed 
ee oe oo NEW FILES. TO WORK WIT wre erivnnwne OOLAB6O00 0 22, Sa ae a res Soe SR Ne i 
- % USER CHANGES AND/CR ADDITIONS Ant WRITTEN TO RECOVERY FILE. 00168700 is 
@» PRUCEDURE HANDIPCSORTAsMAXCNT) 4 00168800 ond 
Pores. ARRAY SORTALO]3.. 2 West RE exp pins rasstenss Pele Geant eh Ses delete teas Sti ats eset edie, & Oe OOO ee ee ERE en ee Te ET SOE a 
a INTEGER MAXCNT3 00169000 ei 
@» BEGIN INTEGER CCsNteN23 LABEL UPsASNOPPARDPFLUs 00169100 1@ 
a 2 - COMPARE sENDMERGE sNEXTPsPCYCLE sSKIPs START MERGE @ i eee we OOLOI2Z00. . Pela Da scieh gfe DPD So leneale de Wea as al 
bs TLOOPsWRITENEWSEOF ,OTPARs SOUPAR®UTPAR23 00169300 | i 
@* REAL Behe ee eee eee ge Or 00169400 ah 
g ee  TANKADRSs TCTs TPTReTSEQR dead le a a Nod ea Nts se OO POD SO Das Meg vwid Madan oes rt et te : 
reel BOOLEAN BFULL*EQLTOGsPGMTOGs 00169600 ss 
2 @ FILE PFILE DISK SERIAL (2%30)3 00109700 1@ 
3 po ILE SOURL DISK RANDOM (2910s30)4 % RANDOM SOURCE FILE = = 9 B00. SOM aN tee ete ah ete eee date is 
ee FILE OLOTAB DISK SERIAL (22300300)3 % OLD "iT" FILE 00169900 a1 
s@” FILE PATCH DISK SERIAL [208600] (2610*300eSAVE 7)3 % SCRATCH PAD FILEQO170000 |@ 
cs ae  BStSWHEREISCACLOMREALCSFLG)I)3 BStsWHEREISC8C20))3 = = 70 L 00. oo eee i 
“4 RECSZt=4074xREAL(SFLG)3 % 1/72 RECURD LENGTH 00170200 3 
@» EXPAND(SORTA»MAXCNT)3 EXPAND (MERGES MAXCNT)3 00170300 33@ 
Piao aed dca OEE OL Ge OES. Th CHECK. PURSE LAG ETT ERROR i ct eet a ett ale OO LEONO0 erg cage ee ee oe is 
ie CCREN28503 00170500 na 
@ | FILL PFILE WITH ™ “SUP HC6SFO312I8LINEL18230%18]sPL6]3 00170600 a® 
i eee VPP N18O3 SPN ie Sra SP wet ili ales si fn A ps eee ts OS OOo yo woh, a i 
x READCPFILE,30,AC*))CIPPAR]S ZIGNURE PARITY ON "1P" FILE 00170800 40 
@. GO ASN 00170900 «|@ 
a PPAR? peace ls Hear . OOL7 1000 Soe, eee ae ween ba 
ASN IF CC LSS MAXCNT THEN %CHECK AGAINST ‘NO OF CHANGES 00171100 : 
&TO WORKFILE 00171200 4@ 
EF AELND ONE @ 100000000. _THEN &2CHECK | FOR, EOF MARKER [nN "2P"  ooa7i30000—0—— = : 
| BEGIN 00171400 a6 
@: SORTACNIi+N2}22A(N1]3 %IF FLAG BIT ON STORE "0" 00171500 ojW 
—_______PFLG! NIZSN1+43 att. pha pale nda ceo ee a ee 01 6p Yt «20 1 9) cna eee er a ‘ 
CCtERCC+43 00171700 49 
@ IF Ni GTR 29 THEN 00171800 « @ 
sea INET el a ac a eS te tet et oo Fe OM PAO OM ert, fit oye! eee aa oe Senne 7 
N22=N24303 00172000 8 
@ GO UPS 00172100 «1 @ 
ars See TT Oe END Bate icecd SE Preece Pace nr ee ag ed gop OORT A200 ns . =e a4 
ELSE . 00172300 65 
@ GO ASN} | , 00172400 | | | @ 
—_______ ENDs SF es ee ee a Oe Ne EE RMT. 9 AeA | 2 ¢ Nae CNTR CORRES oa ee wy, 
@ 
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e 
SORTACN2$=N24N17%=51000000004 BINSERT ECF MARKER 00172600 

e@ SORTCOsN2)3 0601/2700 

ipo t ss eae Ses ANI COME GE gh DS Pint od LT 6 Andie 2 fate chad oe Aatals, Bo eddie oh GUE GAL ARMIN ca ht hn Soaten ae OTP OM OO a, 5 ses eth gn each et 

Bevecvecves 00172900 
@ STARTMERGE3 00173000 
fae as nett Pa ER a ee oe ee we oe eee gercues oh Wisincatiutr, Sphere ee Saale ek es 8 ee ee ae a ts Saale alee he Raa Mes 00173100 4 : sey Nr pt Ris epteel Pe ta a 
FILL SOUR1 WITH SRCENAMEsPLo]s. 00173200 
@ | FILL OLDTAB WITH " “Ar aT"*COz36F 12) KL INECISi30t1e)»> Plo); 00173300 
@ 
@ 


i 


SL ee ILL. PATCH WITH VARNAMEsPLO6O13 2 FOR USER SPECIFIED RECOVERY FILE... ool73400  . ; eo Ailes pacha 8 ie at Pane te Ee 
} PSEQt=(PWORDS=SORTALOJ), C21827)3 & 1ST SEQ, NUMBER IN “4P" FILE 00173500 
a CODE? =PWORD.(122]13 PPTRi=03 00173600 
ML cee en POCTESTCT Seeds tas oR ae dahde Wh Ns De deadline whic ae he teoncr a a ht ae AY IU A POD iG, stn tee: ere ances RS th cea te ee 
ie IF SFLG THEN & Not TYPE ‘DATA FILE 001/3800 
Ns BEGIN 00173900 
Peete ae REAOCOLOTABs 302TC*JILUTPARSOTPARIS TPIR%t203 oO O17 4OQO... hs 
Ms END 00174100 
@ ELSE 00174200 
le 2a BEGIN Kil esc se PAD at cian Pa, dog prides 1 Sait OME A BON vest p20 Slyck, ccidedtacalede te tt eee 
6) SEARCH(SOUR1»SDATAL #1 )3 00174400 
7 MAXtsSDATAL5SI] +13 00174500 


a ENDS 00174700 
zal Reseee : 00174800 
ay... TLOOP: neuen 4 anee es eho) pens feos: beta p woe war, 90274900 
ie beoeee 00175000 
ps IF SFLG THEN % SEQUENCEU FILE 00175100 
i, BEGIN ‘ible trie Bie tielat Leen ah DOLT SIO? -< Su festa, Sac scale dla obs ethic ta ales ta ee 
ps IF TPTREsTPTR+1 GTR 29 THEN % SEGMENT IS EXHAUSTED | 00175300 
26 BEGIN 00175400 
Ree nee eee ee | READCOLDTABs 302TL #]COTPARIUTPAR]; % GET NEW SEGMENT -—s—=—scot7sso0 i (iistsi—‘is‘“‘<‘;CS COS? 
TPTR3=03 00175600 
END3 00175700 
LAGS EOTPARZ 3 ee Nala Nall Rea Maat Scarlatti) eee ce ale ss og Set Sas ac er 
' TSEQ?=TCTPTR].C21827]3 TCT##TCl413 % OLD SEQ, NO, AND LUCATIUN 00175900 
2 IF TSEQSEQFMARK THEN CLOSECOLUTAB)3 00176000 
i On ee ON ne ee END. Ley ceaig i tea secest cuit ND peel Gt Ba GAM Met RR tN tuelscteeet ceed ode MAA tie 8, Gea: itll nec bik cee hoes oe Suara tt Set 
in ELSE 00176200 
e- BEGIN % NON@SEGUENCED TYPE FILE | 00176300 
Pere ewer tang ke yO eS COT RT ESI SEO) 2 GIN OMAN TREN ceo een nt ae OORT OH00 2) 
0 BEGIN 00176500 
@ TSEQ t= EOFMARK$ CLOSECOLDTAB)3 00176600 
Tea Ele ya Bie bent pe a ah OND ce pie rat Al alae ele snl MMe eases ata Roath ena. mek PRS tea arate he COE ON OOF fen 006 La ae Sha nal cn el esac cabs tire aoe aie he at aoe 
4 END$ 00176800 
@: END3 00176900 
ae oa rd ars hasty _* o.8.8..0.8 @ 8 Bayt TON iio, tiara dpKidecenhtaaineaee te” ects Lect ese eat A Steir ate fare cen dle hepa tk p Bes gies ur gat att rock Cte at a Sa Sates ee Dd Set dh pele mae ee coe eS, Q0177000 ; 
4 “COMPARES 00177100 
 ] Racine eae 00177200 
a _1E PWORDSO THEN GC_NEXTPs ieee (4. Festa tenn ROOT POU ue gaa, ok tua te P 
hy IF TSEQ LSS PSEQ THEN © NO CHANGE TO THIS RECURD~ 00177400 
@ BEGIN 00177500 
a ee EL QLTOGSSTRUES SEQSSTSEQS GO TU WRITENEWS, one OOO 
| ENDS 00177700 
, EQLTOG t= TSEQ = PSEQ3 % NEW RECORD SEQ. MATCHES OLD 00177800 
Bieta Seo kee GOL Tawi e pau Dies a3, Ree cl lati seek lll xs Met tts a fe tts fern ctin sw A PQ OO Lie ep tay erie 
PCYCLE? 00178000 
Beencne 00178100 
___....LF., PSEQSEQFMARK THEN GO TO ENOMERGES | srt See Beet Soe, gene OLS BONO 8 585 eh gener 2 
IF CODE*1 THEN &% DELETE CODE 00178300 
BEGIN 00178400 
UBPUCL Per A SES oo Ce tS a ee sl ee OE OTR R OO oa ot i 


AN op Sule aca wae, NS ER: ES OF ae fs hoc’ 4 etote ie bas nak as ey wacestttiua: tapesbeeeln, BOOM LOB OO’. 4 Soh. win comiilestedapngiattcteee eects th yl Foe sen esas aE 
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or ae ee IIE ae eee eT Ta NEA EE Ree ee Ee Ae ok RP eh ee Te SP eee ier eae 
PREVISPSEQGs & SAVE CURRENT PSE NUMBER 00178600 

] PPTR&=PPTR+13 % GET TwE NEXT PSEQ NUMBER 00178700 e 

| PSE OTS (PWORDPSSORTAIPPTIRI) of 21327])3 _ BE os OES hte sneer So sncan neers UO Vr BAO in 4 he ot mn sce ee a 

f CODE!=PWORD,C1i!2]3 00178900 
@: IF PSEQSPREV ANO CODE+(47!1]=0 THEN GO PCYCLES % NEW RECORD FOLLOWS00179000 ; |@ 

SP EOL TOG THEN & "OLO™ RECORD IS DELETED ss oar 9 3 

‘ BEGIN 00179200 ‘ 
@: BLANKLINECAsPREV)3 00179300 |@ 

f ste AF SFLG THEN BEGIN 4WRITE BLANK RECORD IF TYPE SEQ a OOLTIHOO 6 

a WRITECPATCH#102AL #1) 00179500 7 
@: PGMTOG!=TRUES 00179600 |@ 

a Pema 2 |: ee Re® eet eae on a BRUNEI OO sic com epercenecacinrsenacn te tient oie wa Dy To lean SES 

10 GO TO TLOOP} % ADVANCE "GLuTaa" POINTER ~ 00179800 i 
on ENDS & IF EGLTOG- 00179900 |@ 

re pO VO COMPARE SSK Ne Ge an Mee oc Nae ee Se an itl SO OP HOOOU 3 pio ee eee yd GSS po ce ee ih a eh pale I 

"3 END3 % IF CODE = 1 00180100 ng 
@ |. IF CODE®3 THEN &% FIX CODE» CHECK FOR RECORD FIRST 00180200 |@ 

; eee oad BEGIN. a = vena OOLBO300 0 "9 

ne IF NOT CE@LTOG OR BFULL) THEN ® NO SUCH RECORD 00180400 be 
ev BEGIN 00180500 /@ 

| aera GOONER nr sea ey oe ote eee we, bel cat ate card Doo! OPO O10 cr. 229, pamunnctniantetes tated ern me len oan sila piece 18 

ue END} 00180700 tA 
a END} | 00180800 7 4 @ 

Per aya DANK ADRS t=BASECPWORDe(414]) + PWORD,(8i8)3 % TANK ROW apORESS —-s—s§n§»§»§s cNBO9OO.ti( (sss 7 

2 DISKWAITC1sA»30eTANKADRS)3 % GET INPUT FROM TANK FILE 00181000 2 
@ 23 A2 t= Al + PwORD,.C1625)5 & STARTING ANDRESS UF INPUT oe ; 23 @ 

ay NCARS 8S. SIZEOFINPUT(A2)= ol 13..%..POSITION OF LAST CHARACTER IN USERS [nPUTOQ1812700 —.. oo 24 

P EAORS t= (CA2 + NCHRS. 14035]) & NCHRS(301452317 & END OF RCRD ADDRESS ETE i 
@* IF CODE NEQ@ 3 THEN & NOT A FIX CUMMAND 00181400 3 @ 

ae ame BEGIN wo ed eer ered RARAT SER Na eta cence es SE oh OO ce ce el et es tg Ve ee OP ot ne 7 

ia REFORMATCA2¢B1 oB4 sPSEQs(PWORD+L 112150) sSFLGsEADRS)S 00181600 28 
@ BFULL%=TRUES % NEW RECORO IN "B" 00181700 21 @ 

ig] Seesaw PPNEnr! ° 16 Ri © Ri," | 0. 1 eee ne ar Sip Sic cre heats ES cel Pee OO RO Oats, eta See ee ce ep ele 90 

ENDS 00181900 31 
@ IF NOT FIXCHKCA2s01+02sN1sN2,EADRS) THEN % "FIX" SYNTAX ERROR 00182000 22} @ 

OF peat ae BEGIN. ied hat Reiacecl a Aaa ata re lentes Lehi a iat ccs, ere ate wo) oat lmadel OME TOO als pan ormortth umi.délee bacagusboaseckctuen matte See a terre 33 

a4 GO TO NEXTP3 00182200 34 
@* END 00162300 =@ 

Pe dE N20 0339815) GTR AY THEN % SHOU he Te Se ON et es a ee, tee aes oh HOO PB ON OU tal 3) Cotes 8 eee eh i ol Bg 2 es a 

i BEGIN 00182500 il 
@» GO TO NEXTPS 00182600 @ 

Page cals a tn NOP ence ated eRe ce an Regs at Tle ts Sg OO TO sree ls een eo ee ‘ 

i IF NOT BFULL THEN. 7 “GET. RECORD TO BE. PE IXED" 00142800 40 
@. BEGIN 00182900 «|@ 
_._READCSOURICTCT),10-B6*))¢ ASOUPARIS § PUT IN "Bn Pam rests 8 5 > L005 6 Oe ec ee ae eee ce a2 
bi BFULL&*TRUE3S 00183100 ¥ 
@ ENDS. 00183200 lw ® 
ra __.._ TF NOT. LOCATECB1,82-83,84-RECSZ»01,SZ01=512(01002)) THEN _gotaaaoo. EINE ONE Seven Lee “9 
Hs BEGIN 00183400 6 
er GO TO NEXTPS 00183500 | 8 
ENDS _ — 00183600 48 
IF S1¥Z(B3eB4) LSS Se SZ0 THEN 00183700 4s 
@ F BEGIN 00183800 | | 1@ 
ae a cer Ses GOTO NEXTPS : wees 00183900 —i‘( ay 7 51 
ENDS 00184000 5 
@ EDIT (B2rB4+B5%S20+K 1» SZNv SFLG) & REPLACE OLU STRING WITH NEW STRING 00184100 :@ 
P _ Oe I 0038420 oO cctid eeDe! __ 5 
55 TELE ® LOOK AT NEXT "IP" WORD ) et 00184300 a bss 
7 Roceae 00384400 | Paes AS i : @ 

: PREVi=PSEQS x SAVE CURR NT" pe SEQUENCE NUMBER 00184500 | ee Se 
@ e@ @ 


YO @ 
PPTR2=PPTR+13 % CHECK NEXT "1F" wORD 00184600 
e@ PSEQS=(PWORDS=SORTACPPTR)),C21:27)3 & NEXT "LP" wD, 00164700 @ 
Sp PWORDSO THEN GO NEXTPS 5 as ea cae ces sates Maa tte bee De deen ie ean oe JOO EMBO Ule:,-¢,* beste Si tats omen tee 
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